home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Sound / Timidity / SaveToFilePPC < prev    next >
Text File  |  1999-07-26  |  2KB  |  57 lines
  1. ;TimidityPPC Launch script
  2. stack 300000
  3.  
  4. ;START Script to choose the input file
  5. requestchoice >NIL: title="File Choice" body="Please select the MIDI file in the next requester." OK
  6. requestfile >env:infile drawer=midi/ title="Please choose a file"
  7. ;END
  8.  
  9. ;START Script to choose the output file
  10. c:requestchoice >NIL: title="File Choice" body="Please select the OUTPUT file. *n If it doesn't exist, enter the name manually.*n If no file is given it will be saved in the Timidity *n directory with the name output.wav" OK
  11. c:requestfile >env:outfile title="Please choose a file"
  12. ;END
  13.  
  14. ;START Let's define the sample frequency
  15. c:RequestChoice >ENV:freq "Frequency" "Please select the sample frequency" 22050 11025 44100
  16. getenv freq >NIL:
  17. IF $freq EQ 1
  18.    setenv freq 22050
  19. endif
  20. if $freq EQ 2
  21.    setenv freq 11025
  22. endif
  23. if $freq EQ 0
  24.    setenv freq 44100
  25. endif
  26. ;END
  27.  
  28. ;START Number of bits choice
  29. c:RequestChoice >ENV:outres title="Bit resolution" body="Please select the sample resolution *n and the audio mode" "8bit MONO" "16bit MONO" "8bit STEREO" "16bit STEREO"
  30. getenv outres >NIL:
  31. IF $outres EQ 1
  32. setenv outres -Ow8M
  33. endif
  34. IF $outres EQ 2
  35. setenv outres -Ow1M
  36. endif
  37. IF $outres EQ 3
  38. setenv outres -Ow8S
  39. endif
  40. IF $outres EQ 0
  41. setenv outres -Ow1S
  42. endif
  43. ;END
  44.  
  45. getenv outfile >NIL:
  46. IF $outfile EQ ""
  47.      Run >NIL: TimidityPPC $outres -s $freq $infile
  48. else
  49.     Run >NIL: TimidityPPC $outres -s $freq -o $outfile $infile
  50. endif
  51.  
  52. delete env:freq >NIL:
  53. delete env:outres >NIL:
  54. delete env:infile >NIL:
  55. delete env:outfile >NIL:
  56. requestchoice >NIL: Done "Rendering, please wait a few seconds. *n Timidity script by Giorgio Signori *n Mail requests, comments and bug reports to yurex@tin.it" "Ok, see ya!"
  57.